home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invenzioni & Inventori
/
Invenzioni and Inventori (Eclectica Publishing) (1996).ISO
/
invenzio
/
extraurb
/
mi093.dir
/
00560_Script_560
< prev
next >
Wrap
Text File
|
1983-01-30
|
2KB
|
58 lines
on inizializza
global canale_video,Canale_pallina,canale_audio,canale_articolo,canale_principio
global pallina_chiusa,pallina_aperta,audio_nonbarrato,audio_barrato,video_aperto,testo_aperto,principio_aperto
global video_esterno,audio_intro
global At_hil_dacast,at_hil_quanti,at_hil_sprite
global Viff_da,viff_a
global lista_en_menu,lista_en_viaggio,lista_en_chiuso,lista_en_articolo,lista_en_principio,lista_en_video
global dove_articolo,dove_principio,dove_video
global video_bool,principio_bool,albero_bool,testo_bool,audio_bool,correlati_bool,viaggio_bool,inventore_bool
global lista_curan,lista_curap,lista_curnu
global Att_hilitec_dacast,att_hilitec_quanti,att_hilitec_sprite
global olddove
set olddove to 0
set canale_video to 42
set canale_pallina to 39
set canale_audio to 38
set canale_articolo to 45
set canale_principio to 43
set pallina_chiusa to 223
set pallina_aperta to 221
set audio_nonbarrato to 217
set audio_barrato to 219
set video_aperto to 207
set testo_aperto to 210
set principio_aperto to 208
set audio_intro to "AI093RD"
set video_esterno to "V09301"
set at_hil_dacast to 198
set at_hil_quanti to 7
set at_hil_sprite to 40
set viff_da to 20
set viff_a to 23
set att_hilitec_dacast to 13
set att_hilitec_quanti to 5
set att_hilitec_sprite to 5
set dove_video to 3
set dove_principio to 4
set dove_articolo to 6
set video_bool to 1
set audio_bool to 1
set testo_bool to 1
set principio_bool to 1
set correlati_bool to 1
set viaggio_bool to 1
set inventore_bool to 1
set albero_bool to 0
set lista_en_menu to [1, 3, 38, 47]
set lista_en_chiuso to [1, 3, 38, 47]
set lista_en_articolo to [1, 4, 7, 7, 14, 16, 38, 47]
set lista_en_principio to [1, 10, 38, 47]
set lista_en_viaggio to [1, 9, 20, 23, 38, 47]
set lista_en_video to [1, 4, 6, 6, 10, 10, 28, 36, 38, 48]
set lista_curan to [6, 7]
set lista_curap to [9, 5, 8]
set lista_curnu to []
end